home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 21 / CU Amiga Magazine's Super CD-ROM 21 (1998)(EMAP Images)(GB)[!][issue 1998-04].iso / CUCD / Online / WebFTP / Install < prev    next >
Encoding:
Text File  |  1998-02-05  |  2.8 KB  |  113 lines
  1. ;  *** WebFTP installation script ***
  2.  
  3.  
  4. ; *** Set some useful messages ***
  5.  
  6.    (set app-name           "WebFTP")
  7.    (set #install-msg (cat  "\n\nWebFTP installation.\n\n"
  8.                            "Read the documentation for\n"
  9.                            "more information on usage.\n\n"
  10.                            "WebFTP © 1998 Zap Systems.\n"
  11.                            "All rights reserved."))
  12.    (set #welcome-msg       "Welcome to the WebFTP installation!")
  13.    (set #bad-kick          "You must be using Kickstart 3.0 to use this program!")
  14.    (set #bad-installer     "You must be using Installer 43.x to install WebFTP!")
  15.    (set #ask-program-dir   "Where shall I install the program ?\n(A directory will be created)")
  16.    (set #ask-html-dir      "Where shall I assign your html directory to?")
  17.     (set #html-name         "LocalHTML")
  18.     (set #prog-name         "WebFTP_DEMO")
  19.  
  20. ; *** Welcome the user to the installation
  21.  
  22.    (message #install-msg)
  23.  
  24. ; *** Check for Kickstart version ***
  25.  
  26.    (if (< (/ (getversion) 65536) 39)
  27.       (
  28.       (abort #bad-kick)
  29.       )
  30.    )
  31.  
  32. ; *** Check for Installer-Version ***
  33.  
  34.    (if (< (/ @installer-version 65536) 43)
  35.       (
  36.       (abort #bad-installer)
  37.       )
  38.    )
  39.  
  40.  
  41. ; *** Ask the user for the default-destinations ***
  42.  
  43.   (set #prog-dest (askdir (prompt #ask-program-dir)
  44.                            (help @askdir-help)
  45.                            (default "INet:")
  46.                            ;(disk)
  47.                    )
  48.    )
  49.    (set #prog-dir (tackon #prog-dest #prog-name)
  50.     )
  51.     (makedir           #prog-dir)
  52.    (makeassign       "WebFTP:" #prog-dir)
  53.  
  54.  
  55. ; *** Ask the user for the html dir ***
  56.  
  57.   (set #html-source (askdir (prompt #ask-html-dir)
  58.                            (help @askdir-help)
  59.                            (default #html-name)
  60.                            ;(disk)
  61.                    )
  62.    )
  63.    (makeassign #html-name #html-source)
  64.  
  65.  
  66. ; *** Copy the program ***
  67.  
  68.    (copyfiles (prompt #copyfiles)
  69.               (source "")
  70.               (dest   #prog-dir)
  71.               (choices "WebFTP_DEMO" "WebFTP_DEMO.info" "WebFTP.guide" "WebFTP.guide.info" "WebFTPCfg")
  72.    )
  73.  
  74.  
  75. ; *** Keyfile install ***
  76.  
  77.    (if (exists "WebFTP.key" (NOREQ) )
  78.        (
  79.        (copyfiles (prompt @copyfiles-help)
  80.                   (source "")
  81.                   (dest #prog-dir)
  82.                   (choices "WebFTP.key")
  83.        )
  84.        )
  85.    )
  86.  
  87.  
  88. ; *** Ignore file install ***
  89.  
  90.    (if (exists "WebFTP.ignore" (NOREQ) )
  91.        (
  92.        (copyfiles (prompt @copyfiles-help)
  93.                   (source "")
  94.                   (dest #prog-dir)
  95.                   (choices "WebFTP.ignore")
  96.        )
  97.        )
  98.    )
  99.  
  100. ; *** Add assigns to the user-startup
  101.  
  102.     (set add-to-startup    ( cat 
  103.                                         "Assign WebFTP: "#prog-dir"\n"
  104.                                         "Assign LocalHTML: "#html-source"\n"
  105.                                 )
  106.     )
  107.  
  108.     (startup "WebFTP"     (prompt @startup-help)
  109.                                 (help @startup-help)
  110.                                 (command add-to-startup)
  111.     )
  112.  
  113.